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Jju4 
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saou4 
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aou4 
Jjouu4 
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: 1 1 ZTITLE ‘Node File Routines for Network Management’ ; 
$ ¢ § MODULE NMLSUPGRADE ( : 
; LANGUAGE (BLIS$32) : 
ee 004 ADDRESS ING_MODE (NONEXTERNAL=GENERAL), ; 
; 5 005 ADDRESSING_ mys (EXTERNAL=GENERAL), $ 
; 8 0 $ IDENT = ‘vO : 
; 0 = ; 
3 8 008 1 BEGIN 3 
3 9 009 1 : 
ae. 010 1! 3 
: 1} pats } VRE RRR RAAAERAAR EERE ERATE ERATE é 
; te : 
3 ig Go1§ 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 4 5 
: 616 014 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * : 
3 1? opt? } he ALL RIGHTS RESERVED. * 3 
3 'e * 3 
Boe ia $017 1 !® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND corse? * ; 
; 0018 1 !* ONLY IN ACCORDANCE WITH RMS OF SUCH LICENSE AND WITH THE * ° 
aS 0019 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 3 
; 20 bo5s 1 '* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * : 
; $3 0021 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 3 
; $$ B056 ! :* TRANSFERRED. * 3 
3 es * : 
3 $e 0024 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * $ 
3 5 0025 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 3 
3 $8 B058 ! » CORPORATION. * 3 
3 ! * ; 
2 a 0028 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * : 
; 9 94 1 !® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * $ 
; 0 0030 1 !* * 3 
3 1 0031 1 !« * 5 
8 3 00 ¢ 1 LRA AAA ERE AREA EEA ERE EERE AAA AAA AAA RARER AAAAEEEARERREEE e 
Ee 0033 1! 3 
3 $e i 1 3 
; 5 0035 1 !++ 3 
3 $9 ORS ! ; FACILITY: DECnet Network Management Listener (NML) : 
3 4 4 1 | ABSTRACT: 3 
3 » 039 1! 3 
: 40 0040 1 | This module contains routines which are called only during the 3 
s 61 0041 1! V4.0 upgrade procedure. The purpose of the routines is : 
; 4 Bog 1! a) to convert the We database to a faster format : 
3 63 0043 1 | utilizing 4 ISAM keys. 3 
: | «646 044 1! b) since we are now abase {it areas, to scan all : 
s 65 045 1: the permanent database files wh ch contain node numbers : 
: 46 ppe$ 1! and make sure that any with an area number of 0 are 3 
3; 647 047 1! given an area number. The are number used will be : 
; «648 0048 1 | either one supplied by the customer during the upgrade, 
3 r+ BReR : or area 1. 
ee |S 0081 ! ENVIRONMENT: VAX/VMS Operating System | 
; 38 038 ! AUTHOR: Kathy Perko . CREATION DATE: 31-Mar-1984 
; ee bag 1 ' MODIFIED BY: | 
3 28 056 1! 
3 057 1 i- 

| 


. 9 
1e-Sep-t9Be 19:50:21 


NML SUPGRADE Node File Routines for Network Mana t 
vat poelnitione c © ett 

; 59 1 ZSBTTL ‘Definitions’ 

; @& oe 1 

; 61 ret 2 

; 6¢ oe 1 ! TABLE OF CONTENTS: 

ae bes 1 

: 65 064 1 FORWARD ROUTINE 

; o6 065 1 NMLSUPGRADE _PERM_DBS, 
; 44 698 : NML_CONVERT_NODE_DB, 
5 i 068 NML_OPEN_OLD_FILE, 
; 4 of NML_FIX_AREA_NUMS: NOVALUE, 
; 03 d07¢ NML_FIX_LOGGING_REC, 
: 0 0074 | NML_F IX NODE_PARAM; 
eg , 9076 1! INCLUDE FILES: 

oan Be 

: 80 0079 1 LIBRARY "LIBS:NMLLIB.L32'; 

; #81 0080 1 LIBRARY ‘SHRLIBS:NMALIBRY.L32': 

; 8 o083 i LIBRARY *SYSSLIBRARY:STARLET.L32'; 

> B84 083 1! 

8 85 itt 1 ! OWN STORAGE: 

ie b08 1 ¢ 

: 88 0087 1 nml$l_area: WORD; 

Re eT 

3 4 4 } Declare common NML external references. 
; 95 009 Snml_extdef; 

> 95 0094 1 EXTERNAL 

; 3 44 : nml$gq_node_file_dsc: VECTOR (2); 

: 98 0097 1 EXTERNAL LITERAL 

: 190 R208 : nml$_nodcvterr; 

> 101 0100 1 EXTERNAL ROUTINE 

3 106 101 #1 Lib$Scvt_dtb 

: 10 19 1 Libsget-synbol. 

: 104 103 1 nma$closefile, 

; 105 104 1 nma$deletefid, 

: 196 105 1 nma$openfile, 

: 10 1 1 nma$searchfld, 

: 108 i} 1 nma$selectfile, 

; 109 108 1 nml$create_node_db, 

: 110 109 1 nml$connect_node_rab, 

: 6111 110 1 nal$bld_repTy, 

: We 43 ee nmal$getnxtsrc, 

: 11 a 1 nal $logfileop, 

: #116 Bi 1 nal $logrecordop, 

s 115 114 «1 nml$matchrecord, 


ote Bliss-32 vs On06e 
NML ..SRCJNMLUPGRAD .B32; 


Upgrade to V4.0 permanent databases. 
Convert node database from single 
key ISAM to four beyee ISAM. 
Open old node database file for 
eo to 4 keyed format. 
Remove area from node numbers in 
permanent databases. 
Remove area 0 from a logging database 


record. 
Remove area 0 from a node parameter. 


a 


Wal SUP RADE Rode tite k Routines for Network Management 1b-se ~$e8- 138% 99: i 1% ATT Bh tsse evs At O54 Page 2 


oy 115 #1 nm Sopenfile, 
Hay 118 1 rat sreserecerd. 

3; 11 11 1 ot wal LE node_rec, 
. a9 118 1 writerecord; 

; 120 11 1 


_——————$ i 


i 
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ZSBITL nal Super ade pers dbs Do V4.0 convertions on permanent db' 
GLOBAL ROUTINE nml$Upgrade_perm_dbs = 


lee 
' FUNCTIONAL DESCRIPTION: 
This routine is called when going a V4.0 upgrade. The permanent 
database files must by upgraded in two ways: 
a) convert the node database to a faster format 
utilizing 4 ISAM keys. 
b) since we are now merket inp areas, scan all 
the permanent database files which contain node numbers 
and make sure that any with an area number of 0 are 
given an area number. The area number used will be 
either one supplied by the customer during the upgrade, 
or area 1. This change involves the following files 
and databases: 


File Database entity Parameters 
NETLOGING.DAT NMLS$C_LOGGING sink node 
source node 
NETX25.DAT NML$C_X25_SERV_DEST node 
NML$C_X25_ACCESS node 
NETX29.DAT NML$C_S29_SERV_DEST node 


FORMAL PARAMETERS: 
None 


ROUTINE VALUE: 
COMPLETION CODES: 2 
Most errors are signalled by subroutines called. 


BEGIN 


LOCAL 
status, 
area_dsc: VECTOR (2) 
ascit_area: BBLOCK (16); 


WN — SO OONO UNE WN OC ODNOUESWN —“OOODNAUE WR" OOONOU Sw 


! 
' Get the area symbol set up when saservopeta the customer for the upgc ede. 
! This eyaset specifies the area number the customer wishes to convert his 

} network to. t defaults to 1. 


area_dsc fo} = 16; 
area_dsc (1) = ascii_area; 
status = LIBSGET_SYMBOL (UPLIT (XCHARCOUNT (‘NETSAREA_NUM') 
UPLIT BYTE (*NETSAREA-NUM')5, 
area_dsc, 
area_dsc [0]); 
IF .status THE 


N 
status = LIBSCVT_DTB (.area_dsc £0}. 
-area_dsc [1], 
nml$l_area); 


PPDPBEDPE DAA rss Be BS BB BB AAI, 


ee ad dd ed td ed od ed ed ed ds a dd a = = = 


Nou 
tdaiaddaiaiiadAd tad wdaaiiadmiadaiasadwdat stab wiataabaiaadabdabdabdadadad Sadatad dabadadabadadadadabdadadadadadabad 


PRoPOPOPOMOPOPOMOMOPONOPIPOPOPINIPPONINIPIPD 9 tt tt st tt st tt tt tt tt 


SIRNA SS SVS SAFIN IS SONS AE vO O00 NON ett Oo Oto aN a DOs Or OMe 


Se Be Se Se Se Be Ge Be Se Se Se Se Ge Be Fe Fe Se Se Ge Ge Se Ge Ge Se Se Ge Ge Se Sse Ge Ge Se Se Se Se Se Se Ge Se Se Be Se Se Se Se Se Se Se Se Or Ge SH Se SH Se ee ee 


DOOSOOSGOOOOOSCOCO COCO OOOCOOS OOOO OCOOOOOCOOOOOOOOOOOO 


ABNOUSWNM—OO 
SNNNNNSIOOO 


IF NOT .status THEN 


—_—_—_— 
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; 12 118 nml$l_area = 1; 

3 181 } : Convert area 0 in the logging, and X25 and X29 Server Destination databases. 
pe E 181 2 nml_fix_area_nums (nmi $c logging); 

; «184 1 § nm fix_area_nums (nm He x :. serv -dest) 

s 185 1 nml~fix_area_nums (nml$c_x25_access) 

: : ; ¢ nal. fix_area_nums (nml$c_x29_serv *dest); 

3 188 6 Convert the node database to use 4 ISAM keys. This makes it much faster. 

: 190 188 @ status = nml_convert_node_db (); 

; 191 189 RETURN .status; 

: 192 190 END; ! End of NML_UPGRADE_PERM_DBS 


-TITLE NMLSUPGRADE Node Aas Routines for Network Mana 
3 emen 
IDENT \vos-000\ 9 
-PSECT S$PLIT$S,NOWRT,NOEXE,2 
B: .ASCII \NETSAREA_NUM\ : 
A: .LONG 
ADDRESS P.AAB g 
-PSECT SOWNS,NOEXE,2 


00000 NML$L_AREA: 
~BLKB 


40 55 4E SF 41 45 52 41 26 54 


2 
-EXTRN NMLSGB_EVTSRCTYP 
EXTR 


CHAN 
-EXTRN NMLSGL RPORSE ,  U.SOR ENTS TADS 


NMLSAB_ NML SAB PRMSEM 
NML$AB “RECBUF “NMLSAL_ENTINFTAB 
NML SAL ~PERMINE TAB 


Ran SUE RADE 


nat Su 


54 0 

53 0 
SE 
10 «AE 
14 AE 
000000006 00 
: 


000000006 53 
0 
64 


3 
00000000V 09 


O02 8 9 9 9) 2 S| STOWE M SRO OWOMMMNOWOO 


WSO OOO" OOOWWO FP Hund & FOO 
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001C 00000 
9E 00002 
43 00009 
C §0019 
DO 0001 
9E 00037 
9F 0001B 
9F OOOIE 
9F 00021 
FB 00027 
DO 0002E 
E9 00031 
DD st 
DD 00036 
44 tH 
8 HB 
E 44983 
BO 00049 
DD 0004C 
FB Baek 
DD 8 
FB 3 3 
DD 00056 
FB 00058 
DD 00058 
He 
8 B88 


1Soseo-19Be 00:52: 


Moe 


A 


AX-11 Bliss-32 V4.0-74 
NML ..SRCINMLUPGRAD .B32; 


Stop ane CMD_VER 
“FOR RMAT 
ER_PST 

ER_FORMAT 


L$GB_OPTIONS 
NALSGL_ PRS_FLGS 


MNO —e0e 4-4 


DE_RAB 
D_REPLY, NALSGETNXTSRC 
NML$ SLOGFILEOP NMLSLOGRECORDOP 
WAL SAAT CHR D 
NMLSOPEN Ile. NAL SREADRECORD 
NML$WRITE_NODE_REC 
NAL SURI TERE CORD 


SCODES ,NOWRT 2 


NMLSUPGRADE _PERM_DBS, Save R2,R3,R4 


NMLSL_A 
NML_FIX ae NUMS, R3 
#247 SP 


#16. ARE 
ASCII ARER SAREA_ DSC+4 
AREA_BSC 


AREAL DSC 
Hs. LIBSGET _SYMBOL 
TUS 
srt Tus. , 
AREA. DSC+4 
AREA” 
a3, CIB$CVT_pTB 
R STATUS 
STATUS, 2 
i, US ret AREA 
#1, NML_FIX_AREA_NUMS 
#1, NML_FIX_AREA_NUMS 
NML_F 1X_AREA_NUMS 


nes NML_FIX_AREA_NUMS 
#0, wal rooneert RODE _DB 


Page 


Sete Se Se Se Se Ge Se Ge Se Se Se Se Ge Se Ge Se Ge Ge Ge Se Se Se Ge Se Se Se Be Se 
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04 0006A RET ; 0190 

; Routine Size: 107 bytes, Routine Base: S$CODE$S + 0000 


< 
oOo 


database format using multiple ISAM keys. It's much faster to access. 
FORMAL PARAMETERS: 

None 
ROUTINE VALUE: 
COMPLETION CODES: 

Failure or RMS error 


ee ee ee ee 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BEGIN 
OWN 
temp_node_file_dsc : VECTOR (2) 
INITIAL yo" co & P_NETNODE') 


T ('TEMP_ 
YTE (*TEMP-NETNODE')5; 
status 


new_netnode_fab: SFAB_DECL, 
old_rab_addr: REF BBLOCK, Address of RAB for old node database 
: e. 
old_rec_dsc: VECTOR (2) ! Descriptor of record from old file 
: nal $k_recbflend, 


new_rec: BBLOCK 
new_rec_dsc: VECTOR 


polojojeolelqio! 


node. type. 
hey .ve ue_dsc: VECTOR (2), 


msgsize; ! Size of signalled error message. 


SALAS AS SSVEORUNS LS SONS APA AOSRUEAR AVL O DOE 


' 
: Reopen old node permanent database file for sequential read access. 


status = nml_open_old_file (old_rab_addr); 
i If the old node database was opened successfull, then create the new node 
! database file with multiple ISAM keys. 


IF .status THEN ; 

status = nml$create_node_db (temp_node_file_dsc, fab); 
IF .status THEN 

status = nml$connect_node_rab (); 
IF NOT .status THEN 


ot er at ee ehh nko) 
WMO Cen 


5 ee 


Be Se Se Se Se Se Se Be Ge Se Ge Fe Se Ge Fe Se Se Ge Ge Ge Ge Ge Se Ge Ge Fe Se Se Ge Se Ge Ge Fe Ge Ge Fe Ge Se Ge Ge Se Ge Se Se Se Sse Se Ge Ge Se Ge Se Se Se Se ee Se 
SOOSOOCSCOSOOOOSOSOOSO COSCO OOOSOSOOOOCOOOSOOOCO OOOO OOOSOOOOOOOOOOO 


PIPIPINIPIMINGPNIPIPYPIPYPYPIPNIPYNINYIPINYININININPOPINPIPIPIPOPOPNPoPyPoNy 
PRESS & FWA AANINMIIWIPIIDIPUININPININPININIDS 2 SO OO OS OOO 


RIPQPOPINIASPAPIPONINIPYAIMYNINIPYPIPIPINININIPUNIPIPINPIPININYINIPYAY 
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194 191 ZSBITL ‘nml_convert_node_db Convert node permanent database file’ 
123 ; ¢ ROUTINE nml_convert_node_db = 
1 194 14+ 
1 195 ' FUNCTIONAL DESCRIPTION: 
1 1 4 This routine is called if the node permanent database is opened and 
1 only has 1 ISAM ney The old node database file had onl ISAM key 
1 and was too slow with large numbers of nodes in the database. 
1 This routine converts the old node database file to the new node 


SS 


S3 


kK 9 
wa SUP RRADE Node File Routines for Network Management at > 
Vv nml_convert_node_db Convert node permanent dat 14-Se 


RETURN .status; 
; Build new node database file from old node database file. 


71986 99:30:21 EMAL: SRESNALUPGRAD- 832; 


— 
= 
—OOe 


new_rec_dsc [1] = new_rec + nmn$k_node_keys_len; 
old_rec_dsc Li] = .nm($gq_recbfdsc [dst$a peeers + nml$k_perm_keys_len; 
key value. ds¢ 1] = new_réc (nmn$w_key_addJ; 

BEGIN 

Read a record from the old node permanent database. 


status = $GET (RAB = .old_rab_addr); 
IF .status THEN 


IN 
old_rec_dsc C0] = .old_rab_addr Crab$w_rsz] - nml$k_perm_keys_len; 


PAE_EAEQPAAAAAMIssn 
WR COONS wr 


size 
field-addr) THEN 

BEGIN 
node_type = nml$c_executor; 
i Get rid of the executor's OWNER field from the parameters, 
' since it isn't a real NICE parameter. (For the other node 
records, the OWNER is a valid NICE parameter.) 
nma$deletefld (old_rec_dsc, nml$c_key_exe); 

ELSE 
BE 


node_type = nml$c_node; 


67 64 ' 

8 65 ! The two of the keys for the new file are the node address and name. 
69 $8 ' Both these keys are also NICE parameters. The routine that writes 
70 6 ! the record to the node file fixes the key values for these two 
a $8 keys. 

7 70 ' Another key in the new node database is the node type. The 
74 71 ! three node types are executor node, remote node, and loop node. 
75 Le ! The write routine must be given the node entity type to determine 
f 7 } this key value, since it isn't a NICE parameter. 
78 75 field_addr = 0; 

id: IF nma$searchfld (old_rec_dsc, 

7 nml$c_key_exe, 

78 field 

79 

80 

2 

83 

84 

8 


SSBLE 


uw 
MUM WUIUIUIUI IU  UIUIUICAUTIUIVIVIV ES BEE ERR RR ERE ERR RRR EE 


i If there is not node address and it's got a circuit parameter (NLI), 
then it's a loop node. 


field_addr = 0; 

status = nma$searchfld (old _rec_dsc, 
naatc _pcno add 
key_value_dsc (0), 
field_addr); 


If there is no address for the node, it must be a loopnode. 
Loopnodes always have a circuit (NLI) parameter. 


PIPIPIPIPIPYPINIPOPIPUNININPININPINIPOPPONONINIPINPONY 


oooo0oo 
WPwn— 


SS8en 
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SSSLEALANSSS 
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uw 
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oO 
OONO 


HANAN AAAI AIA AAAI AAI AANA AIA AANA AIAN AANA 
BEBE EEE SE & FAWN WII WINING PNININNDYD 2 2 St OO Oo 


=O OD NOAUE WIN 9 OD NAME WIN 2 O OD NAUN EWI 9 ODNOAU EWN OOONAUE WIN O 


Potato tututat tutto tutta tut Pat at at ot ot ot oP oe ot ot ee ee ee ee ee ee 


DPD AAAI 


74 
NML .SRCJNMLUPGRAD .B32; 


IF (NOT .status) AND 
(status = nmafsearchfld (old_rec_dsc, 
nma$c_pcno_nli, 
field size 
field-addrS) THEN 
node_type = _nm\$c_loopnode; 
IF NOT .status THEN 
- RETURN .status; 


Move the node parameters from the old record to the new one, putting 
them right behind the keys. 


CHSMOVE (.old_rec_dsc [0], .old_rec_dsc (1), 
new_rec Cnmn$a_nod_params]); 


Peevacace 


i The record descriptors to not include the keys. So the new record 
length is the same as the old record's length - the data length. 


new_rec_dsc (0) = .old_rec_dsc (0); 
If node numbers are in area 0, fix them. 


nml_fix_node_param (nma$c_pcno_add, new_rec_dsc); 
nml_fix_node_param (nma$c_pcno_iho, new_rec_dsc); 


Write the record to the new node database file. 


Status = nml$write_node_rec ( nmn$c_put_rec, ' Add a new node 
-node_type, ! for node type key 
new_rec_dsc); ! Record to write 


END; 
END 
UNTIL NOT .status; 
Close the old permanent database node file (may it rest in peace). 
nma$c Losefile (nma$c_opn_node) ; 


Now, close the new temporary node file, rename it to it's permanent name, 
and delete any old versions of the temporary node file that may have 
oon left around if the system crashed while the conversion was being 
one. 


' 

i 

i 

i 

i 

' 

status = SCLOSE (FAB = .fab); 

SFAB_INIT (FAB = new_netnode_fab 
"SYSSS T.DAT 


DAT’, 
NA = .nml$gq_node_file_dsc fad 
= 0 


IF .status T EN 
status = SRENAME (OLDFAB = .fab, 
NEWFAB = new_netnode_fab); 


IF .status EQL rms$_suc THEN 
paiiieot ites: tabusc tileio, 


nma$c_opn_node, 
SASCIBD ("Tile converted')); 


NAL 
v04 


et 
5 


e 


Se Se Ge Se Ge Ge Se Se Oe Ge Oe Oe Ge Ge Ge Se Se Se Se Gee 
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45 44 4F 
54 41 
64 65 


44 2— 3A 4D 
74 72 65 76 6E 6 
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IF NOT .status THEN 
BEGIN 


Signal to send error message t 


AX-11 Bliss-32 V4.0-74 
NML.SRCJNMLUPGRAD .B832; 


o NCP, 


nmiSab_msgblock Cmsb$l_flags] = mab$m_det_fld OR 
msb$m_msg_fid OR 
msb$m_sysm_fld OR 
msb$m_msge_fld; 
nmlSab_msgblock [msb$b_code] = nma$c_sts_fio; ! Add error code 
nmi $ab_msgblock (msb$w_detail] = nmaSc_fopdtl_pdb; | Add file id code 
nml$ab_msgblock [msb$l_text] = nml$_nodcvterr; 
nmlSab_msgblock [msb$l_text2] = .status; 
nat Sbld_reply (nmlSab_msgblock, msgsize); 
$signal_msg (nml$ab_sndbuffer, .msgsize); 
END; 
RETURN nml$_sts_suc 
1 END; ! of nml_convert_node_db 
PSECT S$PLITS$,NOWRT,NOEXE,2 
46E 54 45 GE SF 50 4D 45 54 00014 P.AAC: .ASCII \TEMP_NETNODE\ 
45 54 53 59 53 24 53 59 53 00020 P.AAD: .ASCII \SYSSSYSTEM:.DAT\ 
F 63 20 65 6C 69 66 poor P.AAF: .ASCII \file converted\ 
00030 -BLKB 
QOOO000E 00040 P.AAE: .LONG 14 
00000000' 00044 «ADDRESS P.AAF 
-PSECT SOWNS,NOEXE,z 
00002 -BLKB 2 
0000000C 00004 TEMP_NODE FILE_DSC: 
00000000" 00008 “ADDRESS P.AAC 

-EXTRN SYSSGET, SYSSCLOSE 

eEXTRN SYSSRENAME 

-PSECT SCODE$,NOWRT,2 

OFFC 00000 NML_CONVERT_NODE_DB: 

«WORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 
5B 00000000V 00 9€ 0000 MOV NML_FIX NODE PARAM, R11 
2a 8 0 0G 8 9E 0000 MOVAB NMASSEARCHFLD, R10 

9 000000006 00 gE 90019 MOVAB NBL SAB Lock, R9 
5€ FB84 ge 9E 1 MOVAB -1148(SP), SP 

E—E DD 1¢ PUSHL SP 
00000000v 99 1 F 1 CALLS #1, NML_OPEN_OLD_FILE 

8 0 OD MOVL RO STATUS 

2 6 LBC «STATUS, 1$ 

04 ar F 00028 PUSHAB F 
00009000" 0 F 0002E PUSHAB TEMP_NODE_FILE_DSC 


Sete Se Se Ge Gets Se Sete Ge 


0192 


 — 


nN 9 
NMLSUPGRADE Node File Routines for Network Management $ep-1984 4 AX-11 Bliss-32 V4.0-74 P 
wae nml_ convert _node_db Convert node peraanent dat 1 18: Sep 38% 90: 3: iy Ai SREINALUPERAD. B32; ‘¢ — (df 
000000006 90 2 F 4 CALLS i NL SCREATE _NODE_DB : : 
A 6 £9 OO08E Blac. stats. 43 : 0245 
000000006 00 F ‘i CALLS 0, N NL $CONNECT NODE _RAB 0946 ; 
0 $ O¢6 1$ BLBS srAru s 3 + 0247 : 
0 A o SOSt 28 ACY Neu -REC#10, NEW REC DSC#4 + 025 
AC AD 000000696 06 0 ci 0056 ADDL “NML$GQ * RECBFDS psc 4 peo _REC_DSC+4 : 026 ; 
1 A 24 AE F FH MOVAB NEG. REC, key VA ALUE.. : 0254 b 
5 D0 00064 MOVL OLD RAB_A + 0260 ; 
DD 00 7 3$ PUSHL : ; 
000000006 00 ; Ff 9 CALLS a. SYSSGET : ; 
36 0 bd 000 - MOVL ATUS : : 
0 é 007 BLBS araTO + 0261 : 
O0A6 31 90076 BRW : : 
ABS AD 22 «a? «3C 00079 4$ MOVZWL 34(R7) D_REC_DSC + 0263 ; 
AB AD 02 C2 0007 UBL2 OLB_R REC “psc : ; 
08 AE 04 0008 CLRL Fie. -ABDR + 0275 ; 
08 AE 9F 0008 PUSHAB FIE + 0276 ; 
10 AE 9F 00088 PUSHAB BIELD SI size ; ; 
7E 03 CE 00088 MNEGL : : 
AS AD SF OO008E PUSHAB oLb_ REC ; ; 
04 FB 00091 CALLS OTE eee a CHELD é $ 
12 50 £9 00094 BLBC F : 
58 07 DO 00097 MOVL a7. NODE_TYPE + 0281 : 
7E 03 ce 0009A MNEGL #3, = (SPP : 0287 : 
A8 AD SF 0009D PUSHAB 0 b_REC : ; 
000000006 00 02 FB 000A0 CALLS » -NHASDELETEFLD F ; 
H 11 09047 BRB + 0276 ; 
58 0 DO OOOA9 5$: MOVL #3 poe PO Ni : 0291 3 
08 AE D4 OOOAC CLRL FIELD + 0296 ; 
08 AE 9F OOOAF PUSHAB ELD “AD +4 + 0297 : 
18 AE 9F 0008 PUSHAB Kev VALUE psc + 0299 ; 
7E 01F6 «BF O3C 0008 MOVZWL : 0297 ; 
AS AD 9F OOOBA PUSHAB OLD_R ; F 
6A 04 FB 000BD CALLS #4, “AEC ODSC. : ; 
56 50 D 900¢0 MOVL RO, STATUS : ; 
56 f 000¢ LBS STATUS, 7$ + 0305 ; 
08 AE SF 000C6 PUSHAB FIELD_ADDR + 0306 ; 
10 AE 9F 000C9 USHAB FIELDSIZE : : 
7E O1FS = BF 3¢ 000CC MOVZWL # = (SB) : ; 
AB AD 9F 00001 PUSHAB OLD REC_DSC ; ; 
6A 4 FB 9004 CALLS D -NRASSEARCHFLD : ; 
56 0 DO 00007 MOVL +e STATUS : : 
06 56 «ES SO0DA BLBC STATUS, 6$ : : 
58 05 D 900 MOVL #5, NODE_TYPE > 0310 : 
4 6 €8 OO0E BLBS STATUS, 7$ ; 9311 3 
0 56 BO OE 6$: HOVL STATUS: RO : 0312 ; 
2— AE AC BD ag AD 28 itd 7$: MOVC3 OLD_REC_DSC, @OLD_REC_DSC+4, NEW_REC+10 : 0319 ; 
1¢ AE AB AD p0 OEE MOVL  OLDTREC"DSC. NEW_REC_BSC : 0 34 ; 
1C AE 9F OOOF PUSHAB NEW-REC~DSC : 0328 : 
7E O1F6 i 3¢ O0F6 MOVZWL #502, -TSP) ; F 
68 2 FB 000FB ALLS #2, NML_FIX_NODE_PARAM : : 
1¢ AE OF OOOFE PUSHAB NEW REC“DSC™ : 0329 : 
7E 8D 8F 9A 00101 MOVZBL #14T, -TSP) ; : 
| 
i 


: Routine Size: 470 bytes, Routine Base: S$CODE$ + 006B 
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NMLSUPGRADE Node File Routines for Network Management 1b-se =1984 00:37:14 AX-11 Bliss-32 V4.0-74 Pa 13 
vou-008 nml convert _node_db Convert node permanent dat 102800=1 984 99:35:34 NML .SRCINMLUPGRAD.B32; ue (4) vo4 
68 02 FB 001 ; CALLS #2, NML_FIX_NODE_PARAM ; ; 
1¢ AF 9F 001 PUSHAB NEW_REC-DSC : 0333 : 
DD 00108 PUSHL NODE_TYPE : 334 : 
DD 00100 PUSHL > 0333 : 
000000006 90 F 10F CALLS #3, NMLSWRITE_NODE_REC ; : 
D 116 MOVL RO, STATUS : ; 
0 6 : 011 BLBC status, + 0338 ; 
Pee Be OOTIF 8S CrRL.=tSP? + 0342 
0000000¢6 00 01 FB 00121 CALLS #1, NMASCLOSEFILE F : 
04 AE DD 00128 PUSHL + 0349 ; 
000000006 90 9 FB 1 CALLS #1, SYSS$CLOSE ; : 
6 0 p 1 MOVL RO, U : : 
0050 =8F 00 6 . 00 ¢ O1 3 MOVCS #0, (SP), #0, #80, $RMS_PTR + 0354 ; 
BO AD 5083 BE 80 091 E MOVW #20483, SRMS_PTR : : 
C6 AD 0 0144 MOVB #2, $RMS_PTR?22 : ; 
CF AD 02 90 00148 MOVB #2, $RMS~PTR+31 : ; 
DC AD 000000006 0 DO Oi4¢ OVL  NMLS$GQ_NODE_FILE_DSC+4, SRMS_PTR+44 : : 
EO AD 00000000' 00 9E 00154 MOVAB P..AAD “PTR+ : j 
E4 AD 000000006 00 90 0015¢ MOVB NIL $60 NODE FILE DSC, $RMS_PTR+52 ; ; 
—E5 AD OF 90 00164 MOVB #15, $RMS_PTR+5 : ; 
12 56 EY 00168 BLBC + 0355 : 
BO AD 9F 00168 PUSHAB NEW_NETNODE_FAB : 0357 ; 
7E 7C 0016E CLRQ = = (SP) : ; 
10 AE DD 90170 PUSHL FAB : ; 
000000006 00 04 FB 0017 CALLS #4, SYSSRENAME : ; 
56 50 DO OO17A MOVL RO, S : ; 
00010001 =F 56 D1 0017D 9$ CMPL STATUS, #65537 : 0358 ; 
10 12 00184 BNEQ 10$ F F 
00000000' 00 9F 00186 PUSHAB  P. : 0361 : 
7E 01 7D 0018C MOVa = #i, --(SP) : 0359 : 
000000006 00 03 FB 0018F CALLS #3, NMLSLOGFILEOP : : 
9 56 £8 00196 10$: BLBS STATUS, 11 : 0362 ; 
69 4E 8F 9A 00199 MOVZBL #78, NML$AB_MSGBLOCK > 0369 ; 
046 Ad 12 8E 0019D MNEGB #18. NMLS$AB MSGBLOCK*4 : 0371 ; 
08 AS B84 OO1A1 CLRW  NML$AB_MSGBCOCK+ : O37¢ ; 
OC A9 00000000G 8F DO 001A4 MOVL § #NMLS$_NODCVTERR, NML$AB_MSGBLOCK+12 : 037 ; 
10 A9 56 DO OO1AC OVL STATUS, NMLSAB_MSGBLOCK?16 : 0374 ; 
10 Ar 9F 0018 PUSHAB MSGSIZE : 0376 
59 DD 001B PUSHL R9 : 
000000006 00 02 FB 001B CALLS #2, NMLSBLD_REPLY ; 
cogoaldc Gb SF Geis; use ‘hata ewpourre Re 
atest g? Db $i BE PUSHL W38095880 : 
000000006 90 03 FB 0018 CALLS #3, LIBSSIGNAL ; 
0 01 DO 0102 11$:  MOVL #1, RO : 0381 
04 001D BET : 0382 
| 


Wh SUPGRADE Node File Rout ines for Network Management 16-50-1984 90:37 :4% AX-11 Bliss-32 V4.0-74 


nml_open_old_file Open old node database for co 14-Sep-1 NML.SRCINMLUPGRAD.B32; 
5 7 3 1 XSBITL ‘nml_open_old_file Open old node database for conversion’ 
3 58 : ! ROUTINE nml_open_old_file (rab_addr) = 
: 390 § 1 !+4 
3; a 1 ! FUNCTIONAL DESCRIPTION: 
; . a This routine is called when creating a new node database file. It 
3 37 34 ! } opens the old node database file for sequential access. 
; 95 6 91 1°! FORMAL PARAMETERS: 
; #39 0 if : 3 rab_addr Address of PAB returned for use when reading records 
; 0395 1! from the file. 
; 398 94 1! 
; 399 95 1 ! ROUTINE VALUE: 
; 400 a8 1 ! COMPLETION CODES: 
; 401 th 1! Failure or RMS error 
; 40 0398 1! 
: 40 0399 1 !-- 
; 404 0400 1 
: 405 0401 BEGIN 
; 406 Bets 
; 407 040 LOCAL 
; 408 404 rab: REF BBLCCK, 
: 409 405 status, 
; 410 0406 file_dsc: REF BBLOCK; 
: 411 0407 
3 tig rt status = nmaSopenfile (nma$c_opn_node, nma$c_opn_ac_ro); 
: 416 0410 ! If the old node database file was successfully opened, change 
: 415 0411 § ! the RAB to get the file's records sequentially. 
; 416 at ; 
; 417 041 IF .status THEN 
; 418 0414 BEGIN 
: 419 0415 status = nma$selectfile (nma$c_opn_node, file_dsc); 
: 420 pois rab = .file_ds 0. We See O23 
; 421 041 rab Crab$b_rac] = rab$c_seq; 
: re 0418 : 
; 42 0419 !' Set up the RABs input buffer fields. 
: 424 0420 : 
: 425 be5: rab prebév_uss = .nml$gq_recbfdsc paecéu.lengeh); 
3 +38 8 $ rab rab$l_ubf] = .nml$gq_recbfdsc dsc$a_pointerd; 
; $33 0694 Return RAB address to calling routine. 
3 686 b436 -rab_addr = .rab; 
: 431 4 : 
3 $38 0428 2 RETURN .status; 
; 43 0429 1 END; ! of nml_open_oid_file 


0000 00000 NML_OPEN_OLD FILE: 


evone Save nothing 
5E 4 £2 0000 SUBL #4, SP 
C 0000 CLRQ -(SP) 
000000006 00 02 FB 00007 CALLS #2, NMASOPENFILE 
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nml_open_old_file Open o 


29 a? 

000000006 ‘ 
1 o¢ ai 

Al 

ze Al 900000006 88 

4 Ai 000000006 00 

4 BC 51 


WoL SUP RRADE e File Rgut ines for N vers Management 
ft node database 


es 


fFooorfcogron 


oOOoOOOOOoOOoOOoO 


FPOMOWFROUVIA TM 


WWronrn 2233230 


oovwwovco"oom 


—_ 
bad 


; Routine Size: 59 bytes, Routine Base: S$CODE$ + 0241 


G-Heoctate OQeHPIe YANG Tab fes-2 v4. 05749 


STATUS, 1$ 
758?) 
#2, NMASSELECTFILE 
(E_DSC, R 
| (RT), RAB 
(RA 
NML$GQ_RECBFDSC, 32 


(R 
NML$GQ-RECBFDSC+4, 36 
RAB, @RAB_ADDR 


NAL RADE Node File Routines for Network Management 1 Ate -1984 7:14 AX-11 Bliss-32 V4.0-7 Page 16 NM 
VOL~008 nml_fix_area_nums Convert permanent db area Ot 14-Sep-1984 1 93: 36; :21 NML.SRCINMLUPGRAD. B32: . (6) vO 
; 435 430 1 XSBITL ‘nml_fix_area_nums Convert pergenent db area 0 to valid area’ ‘ 
; r 1 ! ROUTINE nml_fix_area_nums (entity) : NOVALUE = ‘ 
; 8 4 § 1 !44 : 
; 9 434 1! FUNCTIONAL DESCRIPTION: ‘ 
; 440 435 1! This routine is called when doing a V4.0 upgrade. It scans all : 
; 441 4 § 1} permanent database files (except the node database) containing node ‘ 
> 44 4 1} numbers. Each node number which has an area number of 0 is given ‘ 
; re r } : an area number supplied by the customer or 1. ‘ 
> 445 0440 1 ! FORMAL PARAMETERS: ; 
3 rr | rae 1! entity NML entity type which has a node number in it’s database. : 
3; 46 rk 3 This Se 6 can be one of the following: : 
: 448 0445 1! iggaing ; 
; 449 0444 1! ants ~ x2>_serv_dest ‘ 
: 450 0445 1! nmi$c_x29_serv_dest ‘ 
; 451 pees 1! ; 
; re 0447 1! : 
; 45 0448 1 ! ROUTINE VALUE: ; 
3; 4546 0449 1 ! COMPLETION CODES: : 
; 455 0450 1! : 
: 456 0451 1 !-- ; 
3; 457 Beg 1 : 
; 458 045 BEGIN ; 
> 459 0454 : 
; 460 0455 LOCAL : 
: 461 0456 fid, ' File id of permanent database file ; 
: 46 0457 2 owner, ! Entity record owner field id : 
; 46 0458 coarert routine, ! Conversion routine for entity ; 
3 464 0459 param_i ' NMA perenetor id for node parameter to fix. : 
; 465 0460 pecest: VECTOR (2), ! Descri ptor of permanent database record : 
3 0461 ! eing converted. : 
: ret re key; ' Key of current file record. ; 
; 469 0464 SELECTONEU .entity OF F 
: Oh he ratte iecatiehi 
; nml$c_ logging): : 
3; 47 bee? BEGIN : 
; 47 0468 convert ghoutine = nml fix ; logging. rec; 3 
3: 474 0469 = nma$c_pclo_si : 
: 475 0470 END; 
3; 476 0471 Cnml 25 _serv_dest : 
3 AG Ree nt Seo / 337 serv_destd: : 
; 479 474 convert yoni = nml_fix_ncde_param; 3 
: aa rt 51 es = nma$c_pcxs_nod; : 
; 5¢ ‘i? Crm : x25 ~access): : 
3; 6 rhe rte BS routine = nml_fix_node_param; : 
; 485 480 paren. = nma$c_pcxa_nod; ; 
: ty, 481 3 
; 48 4 § TES; F 
; 488 4 fid = .nml$ab_ entitydata [ ntity. eit$b fiteigi; : 
3 $37 re : owner = .nml$ab_entitydata L.entity, eitSw_key : 
: 491 486 ! First open the permanent database file to convert. If it doesn't exist, : 


F 10 
NAL SUPGRADE Node File Routines for Network Management 16-Sep-1984 00:37:14 AX-11 Bliss-32 V4.0-74 Page 17 
VOL~008 nml_fix_area_nums Convert permanent db area Ot 12286871382 99:20:34 ENML «SRC NMLUPGRAD .B32; - (6) 
; 49 487 ! there's nothing to do. 
: 192 cB \$ file ( nd $ ) 
3 nmlSopenfile (.fid, nma$c_opn_ac_rw); 
Be Rap gtr eats 
3 199 138 ' Read a record for the entity. The Logging and X25/9 Server Destination 
; 498 49 ! databases are both in database files which contain entries for several 
3 rf t3e entities. The owner field distinguishes them. 
; 501 eh WHILE nml$matchrecord (.fid 
: 50 49 nmi $gq_recbfdsc, 
3 87 498 ey. 
3 499 owner, 0, 0, 
; 505 0500 - 0. YU, ! No qualifier 
3 208 0501 recdsc) DO 
; we Beng BEGIN 
; 508 50 : 
; 509 0504 ! Check the record to see if it contains any node addresss, and, if it 
; 510 0505 ! does, convert them. The convert_routine will return success if it 
s S33 Bene ! found any node addresses, in which case, write the updated record 
3 ai§ Bene back to the permanent database file. 
5 ah 0509 IF (.convert_routine) (.param_id, recdsc) THEN 
3 333 0510 nml$writerecord (.fid, .entity, key, recdsc, 0); 
; 516 0511 bey = key + 1; 
g oir Bai¢ H 
; 518 0513 1 END; ! End of NML_FIX_AREA_NUMS 


007C 00000 NML_FIX_AREA_NUMS: 


oW Save R2,R3,R4,R5,R6 
5E oc c2 9000 SUBL2 
52 04 AC DO 0000 MOVL ENTITY, R2 
01 32 D| 9000 CMPL sR, #1 
54 00000000V 00 9E 9000 OV Ni FIX_LOGGING_REC, CONVERT_ROUTINE 
53 C8 oF 7A 99) ' 0, PARAM_ID 
lz 32 bt 01 R2, #18 
16 R2, #22 
of 1 88 
0D 2 0] 00 R2, #13 
€ 12 000 BNEO 
54 00000000v 0 3 002A 2$: MOV Ni FIX_NODE_PARAM, CONVERT_ROUTINE 0479 
3 014 F c 90 MOVZWL #320, PARAM_TD 048 
50 be ¢ ¢ 036 3$: MULL3 #44, R 048 
90000000600 6 A 00 MOVZBL NML$AB_ENTITYDATACROJ, FID 
00000006004 i 0 PUSHAB NMLSAB_ENTITYDATA+3LRO) 0484 
56 oF C 00 MOVZWL @(SP)+> OWNER 
Q DD 6 PUSHL #1 0489 
5 0D PUSHL FID 
000000006 00 02 FB 00 CALLS #2, NMLSOPENFILE 
6E D CLRL KEY 0490 


Pm ene oe 
NOM OVP OO F OUNWOM DW OVITNOM O 
—_ 
wn 
QOWorworwz2zw 
BmswnBwvDoowz 
vo vo vG<"<«<m o 
ae P= rere “Pe ro) 
ow L— | 
— 
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vOL~008 nml_fix_area_nums Convert permanent db area Ot 1 =3007 1382 99:30:34 ENML.SRE NMLUPGRAD .B32; = a 
04 E f 9 4$: PUSHAB RECDSC 3 0496 ; 
C ¢ CLRQ -(SP) : : 
:. CLRQ -(SP) : ; 
ff D4 CLRL -(SP) : ; 
5 D PUSHL OWNER 3; 0499 : 
\¢ A F PUSHAB KEY 3: 0496 ; 
000000006 F PUSHAB NMLS$GQ_RECBFDSC : 6 
DD D PUSHL At $ : 
000000006 99 A Fe F CALLS #10, NMLSMATCHRECORD : é 
0 3 3 LBC RO, 6$ : 3 
04 AE SF 0007 PUSHAB RECDSC + 0509 F 
DD pit PUSHL PARAM_ID 3 . 
64 F 7E CALLS Wee (CONVERT_ROUT INE) : 5 
13 E th LBC RO, 5$ : 3 
—E D4 00084 CLRL 0s = (§P) : 0510 : 
08 AE 9F 00086 PUSHAB RECDSC g F 
08 AE 9F 00089 PUSHAB sy : g 
52 DD 0008C PUSHL R : 
5 DD 444 PUSHL FID : 
000000006 00 05 FB 000 CALLS #5, NMLSWRITERECORD 3 
6E D6 00097 5$ INCL KEY 3; 0511 
BE 11 00099 BRB 4$ + 0496 
04 0009B 6$ RET : 0513 


; Routine Size: 156 bytes, Routine Base: $CODE$ + 027C 
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Node File Routines for Network Management 16-Sep-1984 00:37:14 AX-11 Bliss-32 V4.0-74 
fix logging_rec Upgrade v4.0 longing databa 1 7308-1382 99:30:34 ENML SRC NMLUPGRAD .B32; 


nal 


pofojejelelolololqo) 


SOOOSOOCOSOOOCOCOGOCOCOSCOOSBOOOSOSOOOOOCSOOOCOOOOOOOoOOO 


ab Sb 4 2 


WN 9 DOONAN WIN 0 ODNA UE WIN 3 O ODNOA UE WN OO OONO UE WN OOWONOUS 


DPR DPD MMII PPE LEE OW 


PDA AA SITIES NNN AAAI PIPIPI PIPPI PIPIPIPIPIPPINIPIPIPIPINIDY 2 2 


ZSBITL ‘nml_fix_logging_rec Upgrade V4.0 logging database’ 
ROUTINE nal -fixclosping-rec (perane id, recdsc) r . 


'+¢ 

! FUNCTIONAL DESCRIPTION: 

; his routine is called as part of the V4.0 upgrade. It finds node 
numbers in the Logging database, and, if they have an area number of 
0, converts them to an area number supplied by the customer during 
the upgrade. (Area 0 is for Phase III nodes only). Node numbers 
occur in the Loggin database in two places. As sink nodes and as 
event sources. Both fields are in th EFI (Event Filter) database. 


INPUTS: 
PARAM_ID NMA id for node parameter to convert. 
RECcDST Address of descriptor of a logging database record. 


BEGIN 


LOCAL 

fidlen, 

event_blk_ dsc : Vv 
source_bl : R 
node_addr_changed; 


| 
: Find the sink node in the database record. This should always succeed. 


node_addr_changed = nml_fix_node_param (.param_id, 
; -recdsc); 


Find the event parameter. This should always succeed as well. 


event_blk_dsc [1] = 0; 

IF nma$searchfld (.recdsc 
nma$c_ 
event_ 
event_b 


n-ne 
rere 


EGIN 
ource_blk = 0; 


have a source type = node, check the node address for area 0. 
If it's area 0 and not the executor node, give the area number 
the customer requested. 


B 
; 
Examine each of the source blocks in the event block. If any 
iuiLe nml$getnxtsrc (event_blk_dsc, source_blk) DO 

IF “pource pik Csrc$b_srctype] EQL nma$c_ent_nod THEN 


BIND 
source_node = source_blk Csrc$w_nodadr] : BBLOCK; 


IF .source_node (nma$v_area] EQL 0 AND 
“poyree.nece nma$w_node] NEQ 0 THEN 


source_node [nma$v_area] = .nml$l_area; 


| 
5 
; 


d 
L 
7? 
? 
? 
? 
7? 
7? 
? 
7 


05 Ao 


; Routine Size: 


: RETURN .node_addr_changed; 
END; ! End of NML_FIX_LOGGING_REC 


06 


101 bytes, 


E 
END; 
END; 


00000000v 


000000006 


000000006 


FC 


Routine Base: 


e File Routines for Network Management 
fix logging_rec Upgrade V4.0 Logging 


5E oC Ge OO 008 
7E 046 AC 7D 0000 
98 9¢ Fe 4394 
5 D dt 
08 AE 04 0001 
8 AE 9F 00016 
8 AE 9F 00019 
7E C9 §=68F 9A 0001C 
08 AC bd 000 ° 
90 04 FB 000 
4 50 E9 O002A 
6E 04 00020 
5E DD 0002F 
08 AE 9F 00031 
99 9 FB 00034 
59 ge 50 O00SE 
03 Ad ay 0004) 
E9 \¢ 0044 
8F 05 AO 93 00046 
Ft; 12 00048 
046 =A 83 rd 
DD 1 Ones 
02 00000000" 00 FO 8 32 
52 01 DbO 0005C 
gf 11 Q005F 
50 52 00 00061 
04 00064 


node_addr_changed = true; 
END; 


0004 00000 NML_FIX_LOGGING_ 
WwW RD 


SCODES + 0318 


} 10 
16-Sep- 
databa 14-Sep-1 


23: 


4 00:37:14 AX-11 Bliss-32 V4.0-74 
& 99:35 1 ENML.SRC NMLUPGRAD .B32; 


REC: 
Save R2 
#i2, SP 

-(SP) 
F1X_NODE_PARAM 
NODE_ADBR_CHANGED 
EVENT_BLR_DSC#4 

1,7=(SP) 

RECDSC 
#4, NMASSEARCHFLD 
SOURCE_BLK 


EVENT _BLK_DSC 
#2, NALSGETNXTSRC 


URCE_BLK, RO 
RO) 


RO), #252 
RO) 


NMLSL_AREA, #2, #6, 5(RO) 
ae NODE _ADDR_ CHANGED 
NO 


DE_ADDR_CHANGED, RO 


ff  "§WIN D nm 
oMu=< VO°O 


0 
( 
$ 
( 
$ 
( 
$ 
1 


roe 


Bete Se Ge Se Ge Ge Be Be Se Ge Ge Ge Se Se Se Se Se BF Se Se Se Fe Ss Se Be Be Se Be 
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v04 nm\_fix_node_param Upgrade v4.0 nods param inp 12-808- 1382 99: 3p; :21 NML.SRCINMLUPGRAD.B32;1 


1 ZSBTTL_ ‘nml_fix_node_param sogcere v4. fi node param in perm database’ 


; 7 

3 i p : ROUTINE nml~fix_node_ “paren (param_id, recdsc 

: 589 1 !++ 

; 590 : 1 ! FUNCTIONAL DESCRIPTION: 

; 591 1! This rows tee is yee " part of the v4.0 upgrade, | It finds node 
3 4 585 1! numbers in the X25 and X26 server databases, and, if they have an 
; 59 5 : 1! area number of 0, converts them to an area number suppl ted by the 
; Be 2 8 ! customer during the upgrade. (Area 0 is for Phase III nodes only). 
; 596 589 1! INPUTS: 

: 597 2 , 1! PARAM_ID NMA id for node parameter to convert. 

; 598 91 #1! PECDST eee of the database record to scan for 

; 599 236 1! param_ 

; 600 0593 1 !-- 

; 601 0594 1 

: 60 Beae BEGIN 

; 60 238 

; 604 059 LOCAL 

; 605 0598 node_len 

; 606 0599 node_ aaer REF BBLOCK, 

; 607 0600 node_addr_changed; 

; 608 se 

8 ret bens node_addr_changed = false; 

; ai; bene See if there's a node in the X25 or X29 Server Destination database record. 
; gig Bons node_addr = 0; 

; 614 060 IF niedecerchtté (.recdsc 

; 615 0608 -param_ id, 

; 616 0609 node len 

; 617 0610 node_ “saat THEN 

; 618 0611 BEGIN 

3; 619 Bet¢ IF .node_addr Cnma$v_area] EQL 0 AND 

; 620 061 -node_addr Cnma$w_node) NEQ 0 THEN 

: 621 0614 4 BEGIN 

3 Ose 0615 4 node_addr (Cnma$v area] = -nml$l_area; 

: 6 0616 4 node ~addr_changed = true; 

; 624 0617 3 $ 

: 625 0618 END; 

: 626 0619 

; 627 Bese RETURN .node_addr ~changed; 

3; 628 0621 1 END; ! End of NML_FIX_NODE_PARAM 


0004 00000 NMi_FIX ae PARAM: 


Save R2 

SE 04 C2 0000 SUBL2 #4, SP 
2 04 CLRL NODE _ADDR_ CHANGED 

ze D4 CLRL NODE ADDR 


Page 21 NM 
’ (B) va 


eg 9 LCR aT Bods a REM RPO ake 


Kk 10 
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VoL b08 nml_fix_node_param Upgrade v4.0 node param inp 1 =Sep- 198 99: HA if NML. SREINMLUPERAD: $33: BS vO: 
000000006 99 9% f 14 CALLS #4, NMASSEARCHFLD F : 
ee ; if MOVE Nob ADDR 30 + 0612 
FC ar 01 OA 3 ; BITB cROy Se : ; 
10 1 6 BNEQ : ; 
6 8 8 ist (RO) 3 0613 : 
60 06 jroe 6 FO 000 ¢ INSV NMLSL AREA #10, io (RO) ; 0615 : 
1 D 00 MOVL NODE_ADDR_ CHANGED : 0616 ; 
2D B 1$: MOVL NObE _ADDR ACHANGED. RO ; 0620 : 
04 00038 RET 3 0621 : 
; Routine Size: 60 bytes, Routine Base: SCODES + 037D ; 
: 629 062 1 ; 
3; 6 1 END ! End of module ; 
; 631 be 4 1 ; 
; 632 0625 0 ELUDOM : 
.EXTRN LIBSSIGNAL ; 
; PSECT SUMMARY ; 
: Name Bytes Attributes : 
; SOWNS 12 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 3 
; SPLITS 72 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) ; 
; SCODES 953 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) : 
3 Library Statistics 3 
Wee SY i See ee Syabolg oececoce Pages Processing : 
; File Total Loaded Percent Mapped Time ; 
; _$255$DUA28:CNML. -OBJ INMLL 1B. 325 1 341 50 14 27 00:00.1 : 
; =Bseeguass: SHRLIBJNMALIBR RY 4 2:1 887 15 47 00:00.2 : 
; 7$255$DUA28:CSYSLIBISTARLET.L32; 1 9776 53 0 581 00:02.1 ; 
3 COMMAND QUALIFIERS ; 
2 BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=L1S$:NMLUPGRAD/OBJ=OBJ$:NMLUPGRAD MSRC$:NMLUPGRAD/UPDATE=(ENHS :NMLUPGRAD) : 
3: Size: 953 sede + 84 data bytes 3 
3; Run Time: 00:19.5 ‘ 


ee ro 


10 
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; Flepsed Time: au 8 


sé 


: Lines/CPU Min: 
; Lexenes/CPU-Rin: 166 


; Memor ages 
3 et he Senolaie . 


IPMENT CORPOR 


an? Vay7une ¥a-¢ L AND PROPRIETARY 


DI 
VAX/VMS_V4.0 CO 


